﻿Public Class Form1

    Dim frmLoaisach As New DMLoaiSach
    Dim frmNgonngu As New DMNgonNgu
    Dim frmnhaxuatban As New DMNhaXuatBan
    Dim frmnhacccap As New DMNhaCungCap
    Dim frmnhanvien As New DMNhanVien
    Dim frmtacgia As New DMTacgia
    Dim frmdausach As New Dausach
    Dim frmqlybandoc As New QLBanDoc
    Dim frmxlyvipham As New XuLyViPham
    Dim frmgiahanthe As New giahanthe
    Dim frmnhapsach As New Phieunhap
    Dim frmkiemke As New Kiemke
    Dim frmdutoan As New DuToan
    Dim frmthanhly As New ThanhLy
    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmLoaisach As New DMLoaiSach
        frmLoaisach.TopLevel = False
        frmLoaisach.Parent = TabControl1.TabPages(0)
        frmLoaisach.Show()
        Dim frmNgonngu As New DMNgonNgu
        frmNgonngu.TopLevel = False
        frmNgonngu.Parent = TabControl1.TabPages(0)
        frmNgonngu.Show()
        Dim frmnhaxuatban As New DMNgonNgu
        frmnhaxuatban.TopLevel = False
        frmnhaxuatban.Parent = TabControl1.TabPages(0)
        frmnhaxuatban.Show()
        Dim frmnhacccap As New DMNhaCungCap
        frmnhacccap.TopLevel = False
        frmnhacccap.Parent = TabControl1.TabPages(0)
        frmnhacccap.Show()
        Dim frmnhanvien As New DMNhanVien
        frmnhanvien.TopLevel = False
        frmnhanvien.Parent = TabControl1.TabPages(0)
        frmnhanvien.Show()

    End Sub
    Private Sub btdmloaisach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdmloaisach.Click
        Panelloaisach.Controls.Clear()
        frmLoaisach.TopLevel = False
        Panelloaisach.Controls.Add(frmLoaisach)
        frmLoaisach.Show()
    End Sub

    Private Sub btdmngonngu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdmngonngu.Click
        Panelloaisach.Controls.Clear()
        frmNgonngu.TopLevel = False
        Panelloaisach.Controls.Add(frmNgonngu)
        frmNgonngu.Show()
    End Sub

    Private Sub btdmnhaxuatban_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdmnhaxuatban.Click
        Panelloaisach.Controls.Clear()
        frmnhaxuatban.TopLevel = False
        Panelloaisach.Controls.Add(frmnhaxuatban)
        frmnhaxuatban.Show()
    End Sub

    Private Sub btdmnhacungcap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdmnhacungcap.Click
        Panelloaisach.Controls.Clear()
        frmnhacccap.TopLevel = False
        Panelloaisach.Controls.Add(frmnhacccap)
        frmnhacccap.Show()
    End Sub

    Private Sub btdmnhanvien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdmnhanvien.Click
        Panelloaisach.Controls.Clear()
        frmnhanvien.TopLevel = False
        Panelloaisach.Controls.Add(frmnhanvien)
        frmnhanvien.Show()
    End Sub
    Private Sub btDMtacgia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDMtacgia.Click
        Panelloaisach.Controls.Clear()
        frmtacgia.TopLevel = False
        Panelloaisach.Controls.Add(frmtacgia)
        frmtacgia.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DMdausach.Click
        Panelloaisach.Controls.Clear()
        frmdausach.TopLevel = False
        Panelloaisach.Controls.Add(frmdausach)
        frmdausach.Show()
    End Sub

    Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
        Dim frmqlybandoc As New QLBanDoc
        frmqlybandoc.TopLevel = False
        frmqlybandoc.Parent = TabControl1.TabPages(0)
        frmqlybandoc.Show()
        Dim frmgiahanthe As New giahanthe
        frmgiahanthe.TopLevel = False
        frmgiahanthe.Parent = TabControl1.TabPages(0)
        frmgiahanthe.Show()
        Dim frmxlyvipham As New DMNgonNgu
        frmxlyvipham.TopLevel = False
        frmxlyvipham.Parent = TabControl1.TabPages(0)
        frmxlyvipham.Show()

     
    End Sub

    Private Sub btqlbandoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btqlbandoc.Click
        Panelquanlybandoc.Controls.Clear()
        frmqlybandoc.TopLevel = False
        Panelquanlybandoc.Controls.Add(frmqlybandoc)
        frmqlybandoc.Show()
    End Sub

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btxulyvipham.Click
        Panelquanlybandoc.Controls.Clear()
        frmxlyvipham.TopLevel = False
        Panelquanlybandoc.Controls.Add(frmxlyvipham)
        frmxlyvipham.Show()
    End Sub

    Private Sub btgiahanthebd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btgiahanthebd.Click
        Panelquanlybandoc.Controls.Clear()
        frmgiahanthe.TopLevel = False
        Panelquanlybandoc.Controls.Add(frmgiahanthe)
        frmgiahanthe.Show()
    End Sub

    Private Sub btnhapsach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsach.Click
        panelquanlyanpham.Controls.Clear()
        frmnhapsach.TopLevel = False
        panelquanlyanpham.Controls.Add(frmnhapsach)
        frmnhapsach.Show()
    End Sub

    Private Sub btkiemke_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkiemke.Click
        panelquanlyanpham.Controls.Clear()
        frmkiemke.TopLevel = False
        panelquanlyanpham.Controls.Add(frmkiemke)
        frmkiemke.Show()
    End Sub

    Private Sub btdutoan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdutoan.Click
        panelquanlyanpham.Controls.Clear()
        frmdutoan.TopLevel = False
        panelquanlyanpham.Controls.Add(frmdutoan)
        frmdutoan.Show()
    End Sub

    Private Sub btthanhly_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btthanhly.Click
        panelquanlyanpham.Controls.Clear()
        frmthanhly.TopLevel = False
        panelquanlyanpham.Controls.Add(frmthanhly)
        frmthanhly.Show()
    End Sub
    Private Sub TabPage3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage3.Click
        Dim frmnhapsach As New Phieunhap
        frmnhapsach.TopLevel = False
        frmnhapsach.Parent = TabControl1.TabPages(0)
        frmnhapsach.Show()
        Dim frmkiemke As New Kiemke
        frmkiemke.TopLevel = False
        frmkiemke.Parent = TabControl1.TabPages(0)
        frmkiemke.Show()
        Dim frmdutoan As New Kiemke
        frmdutoan.TopLevel = False
        frmdutoan.Parent = TabControl1.TabPages(0)
        frmdutoan.Show()
        Dim frmthanhly As New ThanhLy
        frmthanhly.TopLevel = False
        frmthanhly.Parent = TabControl1.TabPages(0)
        frmthanhly.Show()
    End Sub

  

End Class